
Namespace language
    Namespace CJKShare
        Public Module CJKShare

            Public ReadOnly hanziUpbound As UInt32 = Convert.ToUInt32("0x9FBB", 16)
            Public ReadOnly hanziLowerbound As UInt32 = Convert.ToUInt32("0x4E00", 16)

            Public Function isCJKHanzi(ByVal c As Char) As Boolean
                Dim temp As UInt32
                temp = Convert.ToUInt32(c)
                Return temp >= hanziLowerbound AndAlso temp <= hanziUpbound
            End Function

            Public Function isCJKWord(ByVal s As String) As Boolean
                Return True
            End Function

            Public Function CJKHanziToIndex(ByVal c As Char) As UInt32
                Return Convert.ToUInt32(c) - hanziLowerbound
            End Function

        End Module
    End Namespace
End Namespace
